﻿Public Class frmAbout

    Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Credits1.CreditText = "<title>Simple MP3 Player</title><br>Projek PBK TI UKDW<br><br><title>Created by</title><br>Michael Himawan, Brammatia Mahardicha, Felix Angga<br><br><title>Copyleft 2014</title>"
        Credits1.BackColor = Color.Black
        Credits1.ForeColor = Color.White
        Credits1.Animation = 2
        
        Credits1.ScrollSpeed = 10
        Credits1.imageSpeed = 10
        Credits1.MediaPath = "F:\FILM\THE FLU\The Flu.mp4"
        Credits1.Media = CreditsComponent.Credits.jnsMedia.Video
        Credits1.TabStop = False

        'Credits1.MediaPath = "F:\pic\1.jpg;F:\pic\2.jpg;F:\pic\3.jpg"
        'Credits1.Media = CreditsComponent.Credits.jnsMedia.Image

    End Sub

    Private Sub Credits1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Credits1_DoubleClick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Credits1.DoubleClick
        Credits1.FullScreen = True
    End Sub
End Class